﻿Public Class Adminmenu

    Private Sub Keuzemenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Divider.BackColor = System.Drawing.ColorTranslator.FromHtml("#ff4e4e")
    End Sub

    Private Sub Uitloggen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Uitloggen_PB.Click, Uitloggen_Label.Click
        My.Settings.localuserid = Nothing
        My.Settings.localuserlevel = Nothing
        My.Settings.localusername = Nothing
        My.Settings.localuserovnummer = Nothing
        Application.Restart()
        'lekker simpel en effectief.
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Afsluiten_PB.Click, Afsluiten_Label.Click
        My.Settings.localuserid = Nothing
        My.Settings.localuserlevel = Nothing
        My.Settings.localusername = Nothing
        My.Settings.localuserovnummer = Nothing
        End
    End Sub

    Private Sub GebruikerMaken_PB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GebruikerMaken_PB.Click
        Gebruikers.Show()
    End Sub

    Private Sub GebruikerBewerken_PB_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GebruikerBewerken_PB.Click
        Bewerkgebruiker.weergeefGebruiker("", True)
    End Sub

    Private Sub KlantMaken_PB_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KlantMaken_PB.Click, KlantMaken_Label.Click
        Klanten.Show()
    End Sub




    'Hieronder zijn veranderingen in plaatjes geregistreerd:

    Private Sub Gebruiker_Klant_Maken_PB_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GebruikerMaken_PB.MouseDown, KlantMaken_PB.MouseDown
        sender.Image = My.Resources.Adduser_Click
    End Sub
    Private Sub Gebruiker_Klant_Maken_PB_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GebruikerMaken_PB.MouseUp, KlantMaken_PB.MouseUp
        sender.Image = My.Resources.Adduser
    End Sub

    Private Sub Gebruiker_Klant_Bewerken_PB_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GebruikerBewerken_PB.MouseDown, KlantBewerken_PB.MouseDown
        sender.Image = My.Resources.Modify_Click
    End Sub
    Private Sub Gebruiker_Klant_Bewerken_PB_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles GebruikerBewerken_PB.MouseUp, KlantBewerken_PB.MouseUp
        sender.Image = My.Resources.Modify
    End Sub



    Private Sub Uitloggen_Label_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Uitloggen_PB.MouseDown
        sender.image = My.Resources.Logout_no_circle_Click
    End Sub
    Private Sub Uitloggen_Label_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Uitloggen_PB.MouseUp
        sender.image = My.Resources.Logout_no_circle
    End Sub
    Private Sub Afsluiten_Label_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Afsluiten_PB.MouseDown
        sender.image = My.Resources.Close_Click
    End Sub
    Private Sub Afsluiten_Label_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Afsluiten_PB.MouseUp
        sender.image = My.Resources.close
    End Sub
End Class